; E:\PORNPOJ\Y2005\INC361\EX2010\ABS.C - Compiled by CC68K  Version 5.00 (c) 1991-2005  Peter J.Fondse
; /*
; *************************** C SOURCE FILE ************************************
; project   :
; filename  : ABS.C
; version   : 2
; date      :
; ******************************************************************************
; Copyright (c) 20xx
; All rights reserved.
; ******************************************************************************
; VERSION HISTORY:
; ----------------------------
; Version      : 1
; Date         :
; Revised by   :
; Description  :
; Version      : 2
; Date         :
; Revised by   :
; Description  : *
; *
; *
; ******************************************************************************
; */
; #define _ABS_C_SRC
; /****************************************************************************/
; /**                                                                        **/
; /**                             MODULES USED                               **/
; /**                                                                        **/
; /****************************************************************************/
; #include "abs.h"
; /****************************************************************************/
; /**                                                                        **/
; /**                        DEFINITIONS AND MACROS                          **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                        TYPEDEFS AND STRUCTURES                         **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                      PROTOTYPES OF LOCAL FUNCTIONS                     **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                           EXPORTED VARIABLES                           **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                            GLOBAL VARIABLES                            **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                           EXPORTED FUNCTIONS                           **/
; /**                                                                        **/
; /****************************************************************************/
; void Absolute(int32s *dat)
; {
       section   code
       xdef      _Absolute
_Absolute:
       link      A6,#0
       movem.l   D2,-(A7)
       move.l    8(A6),D2
; if (*dat < 0)
       move.l    D2,A0
       move.l    (A0),D0
       cmp.l     #0,D0
       bge.s     Absolute_1
; {
; *dat = -(*dat);
       move.l    D2,A0
       move.l    (A0),D0
       neg.l     D0
       move.l    D2,A0
       move.l    D0,(A0)
Absolute_1:
       movem.l   (A7)+,D2
       unlk      A6
       rts
; }
; }
; /****************************************************************************/
; /**                                                                        **/
; /**                             LOCAL FUNCTIONS                            **/
; /**                                                                        **/
; /****************************************************************************/
; /****************************************************************************/
; /****************************************************************************/
; /**                                                                        **/
; /**                                 EOF                                    **/
; /**                                                                        **/
; /****************************************************************************/
